home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / Rexx / TalkingClock.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-06  |  2KB  |  68 lines

  1. /* HOURLY TALKING CLOCK AREXX SCRIPT v1.0 
  2. ** TO MAKE IT ANNOUNCE MINUTES, UNCOMMENT LINE 14 WHILE COMMENTING OUT LINE 15
  3. ** Heavily modified by Gene Heskett for minutes functions, a bad hack! */
  4.  
  5. LF= '0a'x
  6.  
  7. thetime = time(c)
  8. parse var thetime hour':'minute
  9. apm = right(minute,2)
  10. minute = left(minute,2)
  11. minute2 = left(minute,1)
  12. minute1 = right(minute,1)
  13. if apm = 'AM' then apm = ' aye M'
  14. if apm = 'PM' then apm = ' pee M'
  15. if hour = '1' then hour = 'won'
  16. if hour = '2' then hour = 'two'
  17. if hour = '3' then hour = 'three'
  18. if hour = '4' then hour = 'phor'
  19. if hour = '5' then hour = 'five'
  20. if hour = '6' then hour = 'six'
  21. if hour = '7' then hour = 'seven'
  22. if hour = '8' then hour = 'ate '
  23. if hour = '9' then hour = 'nine'
  24. if hour = '10' then hour = 'ten'
  25. if hour = '11' then hour = 'elaven'
  26. if hour = '12' then hour = 'twelve'
  27. /* first, a special case for all balls */
  28. if minute = '00' then do
  29.    minute2 = ''
  30.    minute1 = ''
  31. end
  32. /* not all balls, are we in the 'teens'? */
  33. else do
  34.    if minute2 = '1' then do
  35.       if minute1 = '0' then minute2 = ' ten '
  36.       if minute1 = '1' then minute2 = ' elaven '
  37.       if minute1 = '2' then minute2 = ' twelve '
  38.       if minute1 = '3' then minute2 = ' thirt teen '
  39.       if minute1 = '4' then minute2 = ' phour teen '
  40.       if minute1 = '5' then minute2 = ' fif teen '
  41.       if minute1 = '6' then minute2 = ' sixt teen '
  42.       if minute1 = '7' then minute2 = ' seven teen '
  43.       if minute1 = '8' then minute2 = ' ate teen '
  44.       if minute1 = '9' then minute2 = ' nine teen '
  45.       minute1 = ''
  46.    end
  47. /* not teens, handle 0-2,3,4,5 in minute2 (tens) */
  48.    else do
  49.       if minute2 = '2' then minute2 = ' twentee '
  50.       if minute2 = '3' then minute2 = ' thirtee '
  51.       if minute2 = '4' then minute2 = ' phourtee '
  52.       if minute2 = '5' then minute2 = ' fiftee '
  53.       if minute2 = '0' then minute2 = ' oh '
  54. /* now do remaining single minutes */
  55.       if minute1 = '0' then minute1 = ''
  56.       if minute1 = '1' then minute1 = ' won '
  57.       if minute1 = '2' then minute1 = ' two '
  58.       if minute1 = '3' then minute1 = ' three '
  59.       if minute1 = '4' then minute1 = ' phour '
  60.       if minute1 = '5' then minute1 = ' five '
  61.       if minute1 = '6' then minute1 = ' six '
  62.       if minute1 = '7' then minute1 = ' seven '
  63.       if minute1 = '8' then minute1 = ' ate '
  64.       if minute1 = '9' then minute1 = ' nine '
  65.    end
  66. end
  67. address command 'echo >speak: "it is "' hour minute2 minute1 apm
  68.